home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sort2.zip / HEAPMEM.FUN < prev    next >
Text File  |  1993-01-04  |  377b  |  12 lines
  1. { These are taken almost verbatim from Borland documents dealing with
  2.   heap management. }
  3.  
  4. { The reference for grain must be established externally }
  5.  
  6. procedure getmem(var p:lp; size:word);
  7. begin system.getmem(p,(size+grain) and ($FFFF - grain + 1)); end;
  8.  
  9. procedure freemem(var p:lp; size:word);
  10. begin system.freemem(p,(size+grain) and ($FFFF - grain +1)); end;
  11.  
  12.